home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / script / typearea.sty < prev   
Text File  |  1993-12-05  |  3KB  |  121 lines
  1. % typearea.sty -- by Frank Neukam  (01 Dec 1993)
  2.  
  3. \newif\if@hincl
  4. \def\headincludeon{\@hincltrue}
  5. \def\headincludeoff{\@hinclfalse}
  6. \@hinclfalse
  7. \newif\if@fincl
  8. \def\footincludeon{\@fincltrue}
  9. \def\footincludeoff{\@finclfalse}
  10. \@finclfalse
  11. \newdimen\paperwidth
  12. \newdimen\paperheight
  13. \newdimen\ta@bcor
  14. \newcount\ta@div
  15. \newdimen\ta@hblk
  16. \newdimen\ta@vblk
  17. \newdimen\ta@temp
  18. \paperwidth 210mm
  19. \paperheight 297mm
  20. \def\typearea{\@ifnextchar [{\@typearea}{\@typearea[0mm]}}
  21. \def\@typearea[#1]#2{
  22.  \normalsize
  23.  \ta@bcor #1
  24.  \ta@div=#2
  25.  \ta@hblk \paperwidth
  26.  \advance \ta@hblk by -\ta@bcor
  27.  \divide\ta@hblk by \ta@div
  28.  \oddsidemargin -1in
  29.  \evensidemargin -1in
  30.  \if@twoside
  31.   \advance\oddsidemargin by \ta@hblk
  32.   \advance\oddsidemargin by \ta@bcor
  33.   \advance\evensidemargin by 2\ta@hblk
  34.  \else
  35.   \advance\oddsidemargin by 1.5\ta@hblk
  36.   \advance\oddsidemargin by \ta@bcor
  37.   \evensidemargin\oddsidemargin
  38.  \fi
  39.  \textwidth \paperwidth
  40.  \advance\textwidth by -\ta@bcor
  41.  \advance\textwidth by -3\ta@hblk
  42.  \headheight 15pt
  43.  \headsep 1.5\baselineskip
  44.  \footskip 3.5\baselineskip
  45.  \ta@vblk \paperheight
  46.  \divide\ta@vblk by \ta@div
  47.  \ta@temp \paperheight
  48.  \advance\ta@temp by -3\ta@vblk
  49.  \if@hincl
  50.   \advance\ta@temp by -\headheight
  51.   \advance\ta@temp by -\headsep
  52.  \fi
  53.  \if@fincl
  54.   \advance\ta@temp by -\footskip
  55.  \fi
  56.  \textheight \topskip
  57.  \@whiledim\textheight<\ta@temp
  58.   \do{\advance\textheight by \baselineskip}
  59.  \topmargin \ta@vblk
  60.  \advance\topmargin by -1in
  61.  \if@hincl \else
  62.   \advance\topmargin by -\headheight
  63.   \advance\topmargin by -\headsep
  64.  \fi
  65.  \if@twoside
  66.   \marginparwidth 1.5\ta@hblk
  67.  \else
  68.   \marginparwidth \ta@hblk
  69.  \fi
  70.  \marginparsep 1cc
  71.  \marginparpush 0.45\baselineskip}
  72. \def\areaset{\@ifnextchar [{\@areaset}{\@areaset[0mm]}}
  73. \def\@areaset[#1]#2#3{
  74.  \normalsize
  75.  \ta@bcor #1
  76.  \textwidth #2
  77.  \textheight #3
  78.  \ta@hblk \paperwidth
  79.  \advance\ta@hblk by -\ta@bcor
  80.  \advance\ta@hblk by -\textwidth
  81.  \divide\ta@hblk by 3
  82.  \oddsidemargin -1in
  83.  \evensidemargin -1in
  84.  \if@twoside
  85.   \advance\oddsidemargin by \ta@hblk
  86.   \advance\oddsidemargin by \ta@bcor
  87.   \advance\evensidemargin by 2\ta@hblk
  88.  \else
  89.   \advance\oddsidemargin by 1.5\ta@hblk
  90.   \advance\oddsidemargin by \ta@bcor
  91.   \evensidemargin\oddsidemargin
  92.  \fi
  93.  \headheight 15pt
  94.  \headsep 1.5\baselineskip
  95.  \footskip 3.5\baselineskip
  96.  \ta@vblk \paperheight
  97.  \advance\ta@vblk by -\textheight
  98.  \divide\ta@vblk by 3
  99.  \if@hincl
  100.   \advance\textheight by -\headheight
  101.   \advance\textheight by -\headsep
  102.  \fi
  103.  \if@fincl
  104.   \advance\textheight by -\footskip
  105.  \fi
  106.  \topmargin \ta@vblk
  107.  \advance\topmargin by -1in
  108.  \if@hincl \else
  109.   \advance\topmargin by -\headheight
  110.   \advance\topmargin by -\headsep
  111.  \fi
  112.  \if@twoside
  113.   \marginparwidth 1.5\ta@hblk
  114.  \else
  115.   \marginparwidth \ta@hblk
  116.  \fi
  117.  \marginparsep 1cc
  118.  \marginparpush 0.45\baselineskip}
  119. \ifcase \@ptsize\relax \typearea{8} \or \typearea{10} \or \typearea{12} \fi
  120.  
  121.